home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1997 to 1998 / Disney Interactive 1997-98 Software Sampler.iso / pc / media / somm.dxr / NewSommaire_373_DownDownPart.ls < prev    next >
Encoding:
Text File  |  1997-10-17  |  719 b   |  33 lines
  1. global pUp, pDown, pSomm, pHelp, pQuit, ThemeDown
  2.  
  3. on mouseUp
  4.   puppetSound("Beep-" & random(26))
  5.   repeat with i = pUp to pQuit
  6.     set the visible of sprite (i + 6) to 0
  7.   end repeat
  8.   updateStage()
  9.   repeat while soundBusy(1)
  10.     nothing()
  11.   end repeat
  12.   puppetTransition(member "TransDown" of castLib "Master")
  13.   repeat with i = 1 to 4
  14.     puppetSound(i, 0)
  15.   end repeat
  16.   if marker(0) = label("VG") then
  17.     go(3000)
  18.     go("VG", "ToyFloor.dir")
  19.   end if
  20.   if Mac() then
  21.     go(3000)
  22.     go(ThemeDown, "101Floor.dir")
  23.   end if
  24.   if marker(0) = label("PS") then
  25.     go(3000)
  26.     go("MA", "MgicFlor.dir")
  27.   end if
  28.   if PC() and (marker(0) = label("ASB")) then
  29.     go(3000)
  30.     go("ASB", "101Floor.dir")
  31.   end if
  32. end
  33.